Program MonProg;
var 
  i : integer;
  j : string;
begin
  i:=1;
  j:='Bonjour à tous';
end. 
